home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / DISKSEARCH.ARC / SRCH DSK 1 (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.2 KB  |  54 lines
  1. 10 ;SRCH DSK 1
  2. 15 ;BASIC LINE NUMBER AND SYSTEM
  3. 20 .B 11 8 10 0 158 50 48 54 49 0 0 0
  4. 30 LDA #$00
  5. 40 STA $D020
  6. 50 STA $D021
  7. 60 LDA #$17
  8. 70 STA $D018
  9. 80 LDA #$93:JSR PRINT;CLEAR SCREEN
  10. 90 LDA #$00;ZERO ALL VARIABLES
  11. 100 STA TRK;HOLDS CURRENT TRACK #
  12. 110 STA A:STA X:STA Y;SPARE REGISTERS
  13. 120 STA SEC;HOLDS CURRENT SECTOR #
  14. 130 STA STRING;HOLDS # OB YTES SEARCHING FOR
  15. 140 JSR INIT;INITIALIZE DISK
  16. 150 JSR SCREEN;SCREEN FORMAT
  17. 160 JSR G;GET KEYSTROKES FROM KEYBOARD
  18. 170 SRCH1 LDX #$FF
  19. 180 TXS;SET STACK TO BOTTOM (#$FF)
  20. 190 INC TRK;INCREMENT TRACK #
  21. 200 LDA TRK
  22. 210 CMP #$24;IF TRK # 36 FINISHED
  23. 220 BEQ END
  24. 230 JSR SECTOR;GET # OF SEC ON TRK
  25. 240 JSR LIST;SEND TRACK READ TO DISK
  26. 250 LDY #$00
  27. 260 LP LDA MW,Y;TRK # TO $06 IN 1541
  28. 270 JSR OUT
  29. 280 INY
  30. 290 CPY #$07
  31. 300 BNE LP
  32. 310 JSR UNLIS
  33. 320 NXTSEC JSR LIST;SEND SEC READ TO DISK
  34. 330 LDY #$00
  35. 340 LP1 LDA MW1,Y;SEC # TO $07 IN 1541
  36. 350 JSR OUT
  37. 360 INY
  38. 370 CPY #$07
  39. 380 BNE LP1
  40. 390 JSR UNLIS
  41. 400 JSR LIST;SEND "#$80" (READ)
  42. 410 LDY #$00
  43. 420 LP2 LDA MW2,Y; #$80 TO $00 IN 1541
  44. 430 JSR OUT
  45. 440 INY
  46. 450 CPY #$07
  47. 460 BNE LP2
  48. 470 JSR UNLIS
  49. 480 JSR CHKERR;WAIT FOR ERROR CODE
  50. 490 JMP RDDSK;READ SEC DATA FOR SEARCH STRING
  51. 500 END JSR INIT;FINISHED
  52. 510 JMP ($A002);BASICS WARM START
  53. 520 .FILE SRCH DSK 2
  54.